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1 ♦ Introcluction 


You have just purchased a remarkable teaching aid for 
ATARI BASIC, one you can learn from, but also FLAY as 
well! Many of the more complicated and least 
well-documented features of the ATARI are exploited in this 
program, and reading this book will give you the insight you 
will need to make these techniques work for you, as well. 
These include multiprocessing using the vertical blank 
interrupt interval, machine language movement of players in 
player-missle graphics, the use of more than 25 
representations of players, multiple players used together 
to form a multicolored and multifunctional player, and a 
redefined character set, including the machine language 
routine to move the set from ROM to RAM to allow you to 
change it! Once you understand these techniques, you should 
be proficient at producing really fantastic effects. 
Remember, MMG MICRO SOFTWARE is very interested in 
reviewing any of your efforts you feel are marketable. Write 
to us for details. 

This program has been compacted using the Masher 
program available from the ATARI Program Exchange. This 
combines lines and converts the most frequently used 
constants to variables. Constants are stored in the ATARI 
as six byte, floating point numbers, and take more storage 
and execute far more slowly than variables. These variables, 
beginning with the letter Q, can be found on lines 110 and 120 
of the program. If you need to translate the variables back 
to numbers, look on these lines for the coding scheme. 

As the discussion of the program proceeds, you will need 
to refer to the BASIC and assembly language listings of the 
source code for each part of the program. These can be found 
following this discussion, and are thoroughly commented for 
ease of understanding. 



Or<aariizst.iori 


ASTEROID MINERS is arranged with the main loop which 
controls the play of the game itself located from lines 
1360-1680,roughly in the center of the program. The 
frequently called subroutines are placed at the beginning of 
the program, and the infrequently called subroutines are 
found at the end of the program. This is the most efficient 
way of calling subroutines, since ATARI BASIC searches for 
a subroutine when a GOSUB command is encountered by 
starting at line 0 and continuing through the lines until the 
correct line number is found. If frequently called 
subroutines are placed at the end of the program, they run 
much, much more slowly. If you want to experiment, put the 
subroutine to read the joystick, now at lines 350-420, at the 
end of the program, and see how much more slowly the 
program executes. Since this program was designed as a 
teaching aid, there are many lines of comments throughout 
the program. If you would like the game to run faster, 
remove these comments. This is a general rule for BASIC, 
and can be used for your own programs, as well. 

Throughout the program, you will find a line that reads! 

REM POKE 16,64!POKE 53774,64 
This line disables the BREAK key, so that the program 
cannot be interrupted while it is in progress. To be 
effective, you must remove the REM, converting this from a 
REMARK to an active BASIC statement. However, each time 
the screen is cleared, the BREAK key must be disabled again. 
That is why there are so many of these statements 
throughout the program. Finally, in the fourth line of the 
program, the command POKE 580,1 can be found. This 
command changes the SYSTEM RESET from a warm start to a 
cold start condition. In English, this means that instead of 
simply resetting the computer and returning you to the 
READY prompt, the SYSTEM RESET button now acts as if you 
had just turned the computer on, and your disk drive will 
reboot, if on. You will LOSE whatever is stored in the 
computer at that point, so perhaps you will wish to remove 
that statement from the program. The combination of 
disabling the BREAK key and changing the SYSTEM RESET to 
a cold start condition is an effective way of protecting your 
code from the prying eyes of others, if you so desire. 



3* The Main Game Loop 

Before we start a discussion of the main loop* it will be 
necessary to discuss the use of player-missle graphics in 
this game. First, the mining ship is actually 3 players in 
one. the blue ship, the red flame, and a black fig'ure in 
between the arms of the ship, which is used to detect 
collisions between the asteroids and this area between the 
ship's arms, indicating a correct pickup by the ship. 
Collisions between the ship itself and the asteroids result in 
explosions, so it is important to detect a "clean catch" as 
contrasted with a true ship-to-asteroid collision. The result 
of this is to require three moves for each change of ship 
position, both in the X and Y direction,since the ship is 
really three players. 

The main loop begins by storing the old Y value in BB, the 
old X value in CC, and the old joystick position. J. in JJ. 
Then we determine if time has run out! if it has, 
PEEK(1619)=1, and the programs jumps to the routine at line 
2250. POKE 53278,1 clears the collision registers in 
player-missle graphics, and the other three POKEs in line 
1370 set the X position of the ship. Line 1380 gets the 
position of the joystick, and, if the button is pressed, makes 
each move 4 spaces instead of 1, speeding up the ship's 
travel. If the position of the joystick hasn't changed from 
the last loop, we GOSUB 350 because we only have one 
dimension of travel to worry about, and the ship is still 
facing in the same direction. In line 1400, if the joystick is 
straight up, the ship is stopped, so we turn off the sound of 
the engines, and erase the flame. Then we start the main 
loop again, since we can't hit anything standing still. 

POKE 77,0 resets the counter which would cause the 
screen tp rotate colors. T(ien we get the movement 
parameters from 510. Lines 1420-1440 erase the old ship, 
and draw the new position, facing in the right direction. Line 
1460 tests the collision registers. If PI (ship-to-asteroid) 
has occurred, and if the difficulty is 2 or 3, then an explosion 
occurs (to line 2640). If no collision at all has occurred (line 
1480), then the program begins the main loop again. 
Otherwise, we need to calculate the position at which the 
collision between the detector and the asteroid has occurred 
using GRAPHICS 0 (playfield) coordinates. Line 1490 
converts these for us, and line 1500 determines which color 
asteroid we've gotten, and its value, If it's not an asteroid 
(32) then we'll begin the main loop again; otherwise, we'll 
erase the asteroid (line 1530) and make the appropriate 
sound, depending on its value. In line 1560, we decrease the 



number of good (blue or gold) asteroids by one» and then we 
add the approriate number to the score* and print it to the 
screen. If there are still some good asteroids left to collect* 
we'll go back to the start of the main loop again. 

Otherwise, we'll stop the clock by using the machine 
language subroutine at memory location 1762 (line 1580), 
sound the trumpets to signal the clearing of a board, move 
the ship to X=0 (remove it from the screen with 3 fast 
pokes), refill the screen with asteroids (subroutine at line 
1820), reset the X and Y positions of the ship to the starting 
positions, redraw the ship at these coordinates, add a bonus 
at line 1630, restart the dock at line 1670, and then start 
the main loop again. Line 1660 does the actual draw of the 
ship, facing down, and sets the Direct Memory Access 
Control (location 559) to allow the ANTIC chip to get its 
information directly from memory, enables player-missle 
graphics, and sets the playfield width to normal. Location 
623 sets the priority of the ship and the asteroids, to 
determine which will appear in front of the other when they 
meet. 

'I. The Sijfcn'outrines 
a* Line 350 

The first four lines determine whether X or Y has 
changed, and change the position accordingly. Note that the 
position is changed by adding or subtracting MOV, which can 
be either 1 or 4, depending on whether or not the button is 
pressed. This gives two speeds to the ship. The last four 
lines check to make sure the ship is still within the confines 
of the asteroid field on the screen. They actually prevent 
the ship from leaving the field of play. 

fc»* Line 510 

This is similar to that described above, but since the 
direction of travel has changed, we must change the way the 
ship is facing, as well as its X and Y coordinates, The first 
8 lines handle this, and the last four function as above, to 
restrict the ship to the field of play. 

c. Line 710 

After asking for the degree of difficulty at which the 
game is to be played, the program OPENs the keyboard for 
input, and GETs the answer, Note that the use of GET, 
rather than INPUT, requires an OPENing of the keyboard, but 
does not require that the users follow their choice by a 



RETURN. In general, it is easier for the user if you use 
GETs, rather than INPUTs, although this only works for 
single character answers. By GETting each character of a 
multicharacter input, and storing them in a string, you can 
even GET a whole string, without requiring a RETURN, if you 
know how long the string is to be. If the answer is not valid, 
the program asks again. In lines 750 and 760, an array of 
numbers is established, for the white, blue and gold 
asteroids, at each of the three levels of difficulty. Lines 
770 through 790 establish how many white (SPLIM), blue 
(ALIM) and gold (BLIM) asteroids belong in the field, and the 
time and difficulty are set, as well. 

d* Line 900 

This routine simply sets up the frontpiece of the game in 
GRAPHICS 2. It takes advantage of the split screen mode, 
setting the background of both the graphics and text windows 
to black. The screen appears to be all one mode, but the 
letters at the top of the screen are large, colored, 
GRAPHICS 2 letters, and the author's name and the copyright 
notice are in small, white, GRAPHICS 0 letters at the bottom 
of the screen. This could have been switched around, but 
would have required a modified display list. The technique 
used here, for this purpose, is just as effective, and far 
easier. 


e. Line 1000 

We begin by relocating the character set at machine 
language speeds, setting up the frontpiece, and playing 2001 
- A Space Oddysey, to get the player in the proper mood. 
Line 1010 asks whether the player needs instructions, checks 
for a proper reply, and responds accordingly. Note that we 
use a GET here, as we did above, but we specify that the 
answer should be either Y/N. 

Next we overwrite the star field with some introduction 
to the game. An important point to note here is that this 
introduction actually hides the access to several of the other 
subroutines required before play can begin. These can be 
seen on lines 1050 (GOSUB 3680), 1110 (GOSUB 3900) and 
1140 (GOSUB 3970). These routines POKE the player's 
shapes into memory (3680) and the countdown timer and 
movement subroutines (3900 and 3970) as well. Normally, 
when you print to the screen, you need a delay loop to leave 
the message on the screen long enough for the user to read 
it. The routines accomplish this, but also do some productive 
work as welh In general} you should try to make anything 



that will take time do something productive for you, or it 
simply becomes a lag in your program. 

In line 1160* we go get the level of difficulty to be 
played, ring the bell once* and in the wait for the next bell 
tone* poke in the new character shapes into our relocated 
character set. In the next line, we set up the top 8 pages of 
remaining memory for the player-missle storage area. Note! 
remaining memory. The top 4 pages of the memory we 
started with are now occupied by the redefined character set. 
POKE 54279*A tells the computer where we have put the 
player-missies. POKE 53277#2 enables the players. POKEing 
1 here would enable the missies* which are not used in this 
game, and POKEing 3 here would enable both players and 
missies. Since the units of variable A are in pages* we 
multiply by 256 to get the actual address of the beginning of 
the player-missle storage area. POKE 53256,1 sets the size 
of the ship, and the last three variables in this line are the 
starting X and Y coordinates and the initial direction of 
travel of the ship. 

In line 1180# the colors of the ship# flame and indicator 
player are set. To set these* we POKE the color registers 
for players 0, 1 and 2 with sixteen times the color* plus the 
luminance. For example* the blue of the ship is color 7* 
luminance 4* so we POKE 16*7+4=116. Likewise* the flame is 
red, so we POKE 16*4 + 4=68. Since we don't want the 
indicator player to be seen* we set it to pitch black* against 
the black background. Then we ring the bell a second time, to 
let the player know we're still around* and POKE the 
pointers to the locations in memory where each of the shapes 
of the ship and other players are found (GOSUB 2140). 
Remember that the ship can go in any of eight direction, so 
we need the shapes of 24 different players stored in memory. 
Three more players are stored by the subroutine at line 2640* 
for a grand total of 27 players! 

In line 1190* the machine language call clears out the 
whole player-missle storage area to all zeros. If we didn't 
do this* strange shapes would appear when we activated the 
player-missle graphics. Normally* in BASIC* this clearing 
would take from 20-30 seconds* but at machine language 
speeds, it's over in the blinking of an eye. From here to line 
1230, we set up the playing field* and insert the asteroids 
(GOSUB 1820 in line 1240). We then ring the bell again* set 
the size of the flame and indicator player* print the high 
score and put the ship into the player-missle. storage area. 
POKE 559,42 and POKE 623,1 are described above under the 
Main Game Loop section. In line 1280, the three POICEs set 
the initial time on the countdown timer* and the machine 
language call USRG622) turns the timer on, just before the 



fjia^n lqpp starts) 


r. Line 1820 

This subroutine is divided into 3 loopsi each of which 
place a different colored asteroid into the field. Each loop 
checks before placing an asteroid into the field to be sure it 
isn't erasing a valuable onei and isn't placing one in the area 
to be occupied by the ship in its initial position. Line 1940 
clears out this area, so that the ship doesn't explode as soon 
as the game starts. Note that NUMGOQD is the total 
number of blue and gold asteroids, so that the computer can 
keep track of the progress being made in clearing the screen 
of these. 


9. Line 2030 

This subroutine redefines four characters, the minus sign 
and the three shapes of the asteroids. The colors of the 
asteroids come from artifactual colors. That is. to make a 
white line in GRAPHICS 0. your ATARI draws a blue line 
next to a gold line, and the combination appears white. 
Therefore, the white asteroid has all of its lines drawn in. 
However, the blue and gold asteroids only have lines drawn 
on the odd or even bits. 

Each character in the ATARI character set is drawn in a 
box measuring 8 bits wide, by 8 bytes high, In fact, only the 
center 6 bytes are used in the vertical direction and the 
center 6 bits in the horizontal direction, so that the letters 
don't touch each other when they are printed adjacent to one 
another. These 36 bits then determine the shape of the 
character to be printed. Each bit turned on results in a dot 
on your TV screen. For example, an A looks like! 



Therefore, to produce blue and gold objects, you only need to 
design your shape using either bits 7,5,3,and 1, or 6,4,2, and 



0. To convert these hit patterns into numbers to POKE into 
memory, as is done in this subroutine, simply refer to the 
chart below, and add up all of the bit values for each byte, 

BIT #176 5 4321 0 


VALUE! 128 64 32 16 8 4 2 1 

So, for the third byte of our letter A, the value would be 
32 + 16 + 8 + 4 , or 60 , Just calculate this value for each byte of 
your character, and POKE it into the the spot of your choice 
in the relocated character set, Remember, the character set 
used is the internal set, found on page 55 of the ATARI 
REFERENCE MANUAL. 

Li. Line 21^0 

As described above, this program uses many players, 
However, the ATARI only has the capability of dealing with 
four (or five, under special circumstances) players at a time, 
So how can we deal with so many? The trick is to use only 
three at a time, which is well within the power of the 
computer. As you know from the discussion above, the 
shapes of the players must be stored somewhere in memory. 
A thorough discussion of player-missle designing is beyond 
the scope of this tutorial, but it will be reviewed briefly. 

Essentially, the process is identical to redefining a 
character, A bit map of the shape of the player is first 
drawn. One difference, however, is that whereas a redefined 
character must be 8x8, a player can be 8 bits wide by a very 
large number of bytes high. How high? It is possible to 
create a single player that would occupy the entire screen 
from top to bottom, Does that give you any ideas'? In any 
case, once the bit map is complete and put into memory, it is 
most frequently dealt with by directly refering to it when it 
is needed, ASTEROID MINERS uses a technique first 
suggested by Eric Stoltman in COMPUTE!, October, 1981, 
Issue #17. This technique sets up painters to multiple 
representations of a player in memory, and simply accesses 
the pointers. 

As an example, the rocket ship used in ASTEROID 
MINERS, as was discussed above, is actually three players 
drawn together. The ship can move in eight directions, up, 
down, left, right, and the four diagonal directions. For each 
direction, the ship actually has a different shape, i.e., when 
going left, the flame is on the right and the scoop is on the 
left, etc. Line 2140 sets up pointers that tell the program 



where to find each shape of the ship itself. Line 2150 sets 
up the pointers to the eight possible flames* and line 2160 to 
the eight possible indicator players. You will note that 
there are really nine pointers for each player. The ninth 
points to a blank area of memory, and is used to point when 
the program needs to erase the player. Each pointer 
indicates a specific shape* from rero, which points to the 
player moving straight up the screen* through 2 (right)* 6 
(diagonally down and to the left), to 8. So, if the ship must 
be drawn moving straight to the left, each of the pointers is 
set to 7, and the correct shape will appear on the screen. 
This assignment is made using the variable FACING 
throughout the program. 

i* Line 2250 

The subroutine at line 2250 sets up a new screen each 
time the game ends. The racket engine sound is turned off 
and the score is checked to see if a new high score has been 
established. The clock is stopped in line 2260, and the top 
portion of the screen is reprinted on the screen. Line 2300 
moves all three players (the ship) to the horizontal position 
of zero* off the screen. This is an effective way of erasing 
them very quickly* although they will need to have their 
horizontal positions reset using this technique. Setting 
FACING to nine and redrawing the players is only a little 
slower, but doesn't require a repositioning, since the player 
is still positioned* but “undrawn". Line 2310 removes any 
remaining asteroids from the screen* OPENs the keyboard for 
the GET that's coming, and resets the color registers so that 
what is on the screen becomes visible. If no further game is 
desired, the screen is cleared with the GRAPHICS 0 
command,and the program is ERASED from memory by the 
NEW command. If you would like it to remain in memory after 
ending, either remove the NEW command in line 2320, or hit 
the BREAK key at any time during the program. If another 
game is desired, the GOSUB 720 determines the degree of 
difficulty of the new game. This is important, since it allows 
a player to practice at one level of difficulty, and then 
switch to another without restarting the game. This feature 
should be included in all programs, wherever possible. The 
remainder of line 2330 sets up the conditions for restarting 
the game, and erases the old score. Control is then returned 
to the start of the main loop. 

J. Line 2^20 

To maintain interest in a game, several levels of 



difficulty are generally a good idea* since players can then 
work their way up in difficulty. ASTEROID MINERS has 
three such levels, and in the highest level, a random factor is 
added. Periodically (each time the countdown timer registers 
that one more minute has passed), a new blue or gold 
asteroid is added to the screen in a randomly selected 
position. This serves to make the game more difficult in two 
ways. First, if it appears in the same location as the current 
position of the ship, BANG! Secondly, the player may have 
just about cleared the screen, when suddenly another 
asteroid appears in some difficult-to-reach position. 
Obviously, this concept could be extended to making a very 
difficult game, by adding asteroids more frequently, but 
mercy is called for here. The routine at line 2420 simply 
adds the new asteroid, and increases NUMGOOD. Note that 
line 2420 checks to see that the randomly selected location 
for the new asteroid doesn't already have one. If it does, a 
new location is selected before the asteroid is PRINTed to 
the screen. 


k. Line 2510 

In general, a reward for accomplishment should be 
included in all endeavors. ASTEROID MINERS rewards a 
successful clearing of a screen in two ways, a bonus score 
proportional to the level of difficulty, and a heralding 
sounding of trumpets. This subroutine turns off the sound of 
the rocket motors, plays the trumpets, and then turns off the 
trumpets. 


1. Line 2 .£210 

In keeping with a reward for successful performance, 
failure should also be dealt with accordingly. In ASTEROID 
MINERS, at any level above the training mode (level 1), if an 
asteroid is not cleanly scooped up, the ship explodes by this 
subroutine. 

Line 2640 moves the ship off the screen, and brings on a 
new player, the explosion! Its color-luminance is set with 
the POKE to 707, as described above, and the shape of the 
mushroom cloud is POKEd into memory. The POKE to 623 is 
the priority select, and the POKE to 53251 positions the 
mushroom cloud where the ship used to be. The loop from 
2670 to 2710 puts the sound of the explosion out, flashes the 
screen in an ever changing spectrum of colors, and changes 
the size of the cloud twice (more players!) during the 
explosion, giving the impression of a spreading mushroom 
cloud. After the 'nop, the colors are reset, the sound is 


turned off, the cloud is moved offscreen, and we find out if 
another game is desired by the GOTO 2250. 

«♦ Lirie 2800 

In order to redefine a character set, we must put new bit 
patterns into the old set, as described above. However, the 
character set is located in ROM, Read Only Memory. He 
cannot write to this, so we can't change it. In order to 
accomplish this change, we must first move the whole 
character set from ROM to RAM. This can be done with a 
simple loop in BASIC, and needs to move 128 characters, with 
8 bytes per character, for a total of 1024 bytes. However, 
this loop in BASIC takes over 20 seconds to execute. The 
same transfer can be done in machine language in far less 
than a second! The machine language program to do this is 
stored in the string QWER$ on line 2810, and is activated by 
the USR call at the end of the line. 

Before we can move the character set to RAM, we need a 
protected place to store it. Line 2800 moves the top of 
memory pointer (location 106) down four pages in memory. 
Note that each page of memory holds 256> bytes, and 
4*256=1024, which is exactly the space we need for the whole 
character set. We then need to tell the computer where to 
find the new character set, and this is done by the POKE 756. 
THIS POKE MUST BE REPEATED EACH TIME A NEW 
GRAPHICS MODE IS CALLED! This is because the ATARI 
resets this pointer to its original place pointing to the 
original ROM position after each GRAPHICS call. 

For discussion of this machine language routine, please 
refer to the appropriate assembly language program 
enclosed, titled Character Set Relocating Routine. The 
origin is set to $0600 here, but since it is fully relocatable, 
we can store it as a string and let BASIC worry about where 
to put it. By the way, to create this routine, use the 
Editor/Assembler cartridge, and, after you assemble it, 
SAVE it to disk. Then put in BASIC, and, from DOS, use the 
L option (binary load) to put the routine in memory. Then hit 
B to get back to BASIC. You now have your machine language 
program stored in 34 memory locations, starting at 1536 
(1536 decimal = $0600). In the direct mode, type) 

DIM A$(34)!FQR 1=1 TO 34!X=PEEK(1535+I)i 
A$(I,I)=CHR$(X)!NEXT I 

This will create a string with your machine language code in 
it. Then, still in the direct mode, type! 



PRINT A$ 


After the string is on the screen, move the cursor to add a 
line number in front of it, and after the line number, type! 

DIM A$(34)!A$=“ 

and after the string, put another quote. When you hit 
RETURN, your machine language subroutine is part of your 
program! 

The subroutine to relocate the character set from ROM to 
RAM begins with PLA, which is required for access by 
BASIC. The next four instructions take the location to which 
the character set is to be moved from the stack, where it was 
passed as a parameter in the USR call in line 2810, and puts 
this location onto the zero page, in memory locations *CB and 
$CC (low, high bytes, respectively). Then the ROM location 
of the character set, tEOOO, is placed onto zero page, in 
memory locations $CD and $CE. The X register acts as a 
page counter (remember! we need to transfer 4 pages). The Y 
register counts from 0 back to 0, transferring the whole 
page. The loop from line 440 to line 520 transfers all 4 
pages, with the loop from 450 to 480 transferring each page. 
The transfer uses the Y register as an offset into the ROM 
and RAM versions of the character set, from the base 
addresses, stored on the zero page. 

After each page is transferred, the base address of each 
version (ROM and RAM) is incremented in lines 490 and 500, 
and the loop repeated. 

By way of comparison, this routine in BASIC takes 
between 20 and 30 seconds to execute, depending on 
positioning within the program, and other factors. This 
machine language subroutine takes 14433 machine cycles to 
execute. The cycle time of the ATARI 6502A processor is 
560 nanoseconds, so the total time of execution is 8082 
microseconds, or about eight one-thousanths of a second! 
That's the advantage of machine language over BASIC. 

n. Line 2900 

Before we play the music, we set up the screen, and make 
the cursor go away (POKE 752,1). We then set the pitch of 
the various notes to be used, in lines 2940 and 2950. The 
notes are then played in the following lines. Note that the 
speed of the music increases as it proceeds, because the 
markers WH, HA and QT (WHole note, IIAlf note, and QuarTer 
note) for the DURation, are made smaller in lines 3120, 3230, 
3270 and 3290. Note that at intervals as the notes are 






played, the program PRINTS a dot on the screen in a random 
location, giving the appearance of a star field becoming 
visible. 

The sharp-eyed reader of the source code will see a 
number of lines that are considerably longer than the 3 
physical lines allowed by the BASIC cartridge. How is this 
possible? By some more trickery. Note, for example, line 
3080, or line 3130. These lines have over 160 characters in 
them! Two different methods are available for your ATARI 
to achieve this. The first, to abbreviate all BASIC commands 
as you type in the line, is commonly used, but you can see 
that this won't allow those two lines to be that long. The 
second method was used for these. If you LIST a BASIC 
program to disk or tape, you can ENTER it into the computer 
with the Assembler/Editor cartridge in place. The Editor 
will allow you to replace any string with any other, so that 
you will be able to put in some code of your choice, like 
XXXXXX, and then replace it with a whole line of additional 
BASIC throughout your program. One caution should be 
exercised, however. This line will be accepted by the BASIC 
cartridge when you reENTER the program into BASIC, but 
don't try to edit this line, or you'll lose it. The real 
usefulness of this trick is to cram as much as possible on 
each line, which will speed program execution and save 
memory as well (fewer line numbers for the computer to 
store). 


o. Line 3/120 

Instructions to a program can either be provided in 
printed form, or can reside in the computer itself, within the 
program. In ASTEROID MINERS, the second option is used, 
and this subroutine prints these to the screen. Note 
particularly that when the screen is full, the program uses a 
GET to allow the users to read that full screen of 
instructions at their own pace, and then, by hitting any key, 
allow the next screenful to appear. This is particularly 
helpful to beginners, who may be uncomfortable with using 
the computer in the first place. Note also the use of the 
dark red letters on the light pink background, to avoid 
monotony in the appearance of the program. 

P* Line 3750 

These routines are very straightforward, and simply take 
the numbers resulting from the bit maps of the shapes of the 
players and POKE them into protected memory. There is one 



trick here, however. We've run out of protected memory. 
How to get more? We could lower MEMTOP again, and store 
the shapes there, but we've already done that twice. There 
is one other place usually used, page 6, but we're going to 
store our machine language routines there. Well, there's 
still one other place, but it requires some care. 

When your ATARI GOSUBs or executes a FOR...NEXT 
loop, have you ever wondered how it knows where it was, so 
that it can properly RETURN or jump back to the FOR 
statement? The answer is that it stores the address it has 
just been at on the stack, which, for the 6502A, is page 1 of 
memory. This acts just like a stack of dishes on a spring 
loaded pile, as is common in cafeterias, As we add a plate to 
the pile, ail the other plates move down one position, and 
when we remove a plate from the top, all the others move up. 
The return addresses act exactly the same way, and when the 
6502A encounters a RETURN, it pulls the top address off the 
stack and goes there. So how does all of this help us? 

The stack is a full page of memory, 256 bytes. If you're 
careful with your nested loops, you won't use nearly that 
many locations. Therefore, the bottom of the stack, $0100 
and up, is available for you on which to store anything. 
Hexadecimal $0100 is decimal 256, so we start storing the 
shapes at 260, just to keep things even. You may* have 
noticed that the shapes of the mushroom cloud in the 
explosion subroutine are also located on page 1. Just 
remember, don't use any locations much above 490, or you 
could run into trouble, but this number will vary greatly from 
program to program, You'll just have to experiment if you 
need the storage space. Page 1 ends at memory location 511. 

<*. Line 3 c ? y 10 

Since the three remaining machine language subroutines 
are located together at the end of the program, they will be 
discussed as if they were three subroutines, although all the 
lines from 3 V 40 on accomplish is to POKE them into memory, 
not execute them. The lines from 3940 on are really called in 
two sections! 1. from the GQ5UB 3940 in line 1110, and 2, 
from the GOSUB 4olu m line 114Ck They are called this way 
because they take too much time to execute together 
(1 ‘OKIling is a slow business). 

1 * Moviiig the Players 

This machine language routine is short and fast. The 
first PLA is needed for BASIC to access the subroutine. The 
next four lines pull the location of the player off the stack, 



and store it on page zero* Then we pull the pointer to the 
shape we want to draw at that location, and also store that 
on page zero* The loop from 410-450 moves 8 bytes from 
where the shapes are stored to where we want them to 
appear, and we return to BASIC* Short, sweet, and very fast. 
It uses only 182 machine cycles, or about 0*1 milliseconds! 

2. Clearing Menory to all Zeros 

The use of this routine in ASTEROID MINERS is to clear 
out the space used for the player-missle graphics, but it 
could be adapted for any other use, as well, Again we start 
with the PLA BASIC needs* Lines 330-430 set up the low 
byte of the indirect page zero address as 0, and the high byte 
is 7 less than the number stored in $6A (decimal 106), the 
pointer the ATARI uses to point to the top of memory. The 
loop from 440-510 clears all these pages, with the loop from 
450-470 clearing each page. Remember, line 330 loaded the 
accumulator with 0, so we don't have to load it with 0 again 
in line 450, or ever again, in fact, as long as we use the other 
registers as counters. Note that counting the Y register 
down from $FF to 0 allows us to branch without a compare, 
since the 6502A sets a flag when such operations reach zero, 
and we can simply test for the equality to zero, as in line 470. 

3* The Countdown Timer 

This is the longest and most complex machine language 
subroutine in ASTEROID MINERS, and is extensively 
modified from a routine for a real-time clock originally 
published by Craig Patchett in A.N.A.L.O.G. 400/800, Issue 
#5, 1981. The 3 digits of the timer have locations 
$0650-$0652 reserved For them in line 490. INDIC, location 
$0653, will be used to signal that time has expired, so we 
know when to end the game. INDIC1, location $0654, will be 
used to signal that the minutes digit has changed. 
Remember, we use that to add a random asteroid to the Field 
at the highest level oF difficulty. Finally, TIMER, location 
$0655, will be used to actually countdown from 60 to 0, since 
the vertical blank interrupt occurs 60 times per second. Each 
time this reaches zero, one second has expired. 

The routine from lines 630-680 actually inserts this 
whole routine in the vertical blank interrupt. It does this by 
stealing the vector the ATARI uses to jump to the proper 
routine, and sends it to this one first. At the end of our 
program, line 1340, we then jump to the right place, so we've 
just inserted our routine in between real time processing, 





and that processing occurring while the electron beam is 
waiting to paint another picture on your TV tube, sixty times 
per second, Time stolen here for our routine is time that 
BASIC is inoperable, so that this routine actually is 
simultaneously processed along with ASTEROID MINERS, 
He have created a multiprocessing computer out of your 
ATARI' The inserting routine just consists of loading the Y 
register with the low byte of the address oF the routine to 
he inserted, the X register with the high byte of this 
address, and the accumulator with a 6 for the first part of 
lhr? vertical blank interrupt, or a 7 for the second par t, He 
use a A here, but for longer routines, 7 has more slack time 
associated with it. We then JSR to SETVBV, a routine the 
good Folks at ATARI built into your computer's operating 
system just to change the vertical blank interrupt vectors, 
That's all there is to it* Next, we'll examine the routine for 
the timer itself. 

Lines 760-810 check to see if TIMER is zero. If not, they 
print out the digits. If it is, lines 820-830 reset the TIMER, 
and then lines 840-1110 check each of the digits. First the 
lowest order digit is decreased by one. If it is now less than 
zero (=iFF>, then it is set to the right digit, and we proceed 
to the next higher digit. The right digit in this case is a 9 
lor the seconds, and a *:• for the tens of seconds. In any case, 
each subpart for each digit stores the correct digit in the 
storage locations reserved for them, as discussed above. 
Lines 1010-1020 set the flag INDIC1, and lines 11201 130 
set 1NDIC, both of which were also discussed above. 

He want the actual digits of the tuner to appear in the 
middle of the fifth line of a GRAPHICS 0 screen, so the 
appropriate offset to produce this was calculated to be 179, 
and is used in t lie printing routine, from line 1140-1330. 
t our lines of 4u bytes per line is 160, plus half of one more 
tine minus one to center it, is 179. To print the digits to the 
screen, we actually FORE them directly into screen memory, 
Fust the minutes digit, in lines 1260 1320, then a colon, in 
lines 1 180 -1 9‘:»o, then the? next t wo digits using the same 
routine in lines 1260-1320. This finishes the routine, so we 
exit by jumping to the normal exit for the first part of the 
■vertical blank interrupt routine, SYSVBV. 

The routine in lines 1440-1490 simply reroute the vertical 
blank interrupt routine back to the way it way initially, 
fimre the timer routine will not he accessed then, the timer 
effectively shuts off until we reinsert the routine. This 
allows us to turn the timer on and off at will! 



C oner 1 us i on 


That completes tfie explanation of ASTEROID MINERS, 
We hope that you have learned a great deal about your 
ATARI from this tutorial, In turn, we hope to learn a great 
deal from you, What do you think of this approach? Would 
you like to see more of it? How would you improve it? Any 
and all suggestions you have for improving or extending this 
will be read and considered in depth, and we would very much 
like to hear from you, Thank you in advance for your 
suggestions, criticisms, and help. And enjoy ASTEROID 
MINERS, both the game and the tutorial! 


ATARI is a registered tradenark of ATARI, Inc, 
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100 POKE 77,11 

110 00=0101=1102=2103=31 04=4 1 05=5 1 06=6107=7 1 

08=0109=9 1010 = 101012=121014=141015=15:016=16 

{017=0.51019= 19 {021=20 1034=34 {040=40 

120 041=20401049=49{064=641096=961097=97{010 

0 = 10 0:0256=25610512=51210536=153610559=55910 

720=72010752=75210774=53774 

130 POKE 500,01{POKE 0559,00{GOTO 1000 

140 REM 

150 REM 

160 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

170 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


180 REM *xx ASTEROID MINERS xxx 
190 REM *** A UNIQUE GAME TUTORIAL xxx 
200 REM *** (c >1982 MMG MICRO xxx 
210 REM *** SOFTNARE xxx 
220 RE^M *xx *** 
230 REM *** by Mark Chasin *** 
240 REM *** *** 


250 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

260 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM THIS SUBROUTINE DETERMINES THE POSIT 

ION OF THE JOYSTICK AND LIMITS THE PLAYERS I 

0 THE SIZE OF THE SCREEN 

320 REM 

330 REM 

340 REM 

350 IF <J=11> OR (J=Q10) OR <J=Q9> THEN X=X 
MOV 

360 IF < J=Q6) OR <J=Q7) OR (J=Q5) THEN X=X«M 
OV 

370 IF <J=Q10) OR (J=Q14) OR <J=Q6> THEN Y=Y 
-MOV 

380 IF (J=Q9) OR <J=13> OR (J=05) THEN Y=Y»M 
OV 

390 IF Y>0100 THEN Y=Q100 
400 IF YC040 THEN Y=Q40 
410 IF XCQ49 THEN X=Q49 
420 IF X>190 THEN X=190 
430 RETURN 
440 REM 
450 REM 
460 REM 

470 REM THIS SUBROUTINE CHANGES THE DIRECTTO 



N THE PLAYERS ARE FACING» AMP AP4UST8 THEIR 
NEW POSITIONS ' ' 

ISO REM 

190 REM ' ! ' . 

500 REM 

510 IF J«Q11 THEN FACING«QliY*Y~MOV*GOTO 630 
520 IF ,1=06 THEN FACING==02*Y=Y-MOV*X«X+MOV*G 
OTO 630 

530 IE J=07 THEN FACING«Q3*X=XtMOVJGOTO 630 
510 IF ,1=05 THEN FACXNG=01*X=X+MOV*Y=Y+MOV*G 
OTO 630 

550 IF J»13 THEN FACING*Q5IY=Y+MOV1GOTO 630 

560 IF J=09 THEN FACING»06*Y=Y+MOV*X=X~MOV|G 

OTO 630 1 

570 IF J=ll THEN FACING=G7*X=X-HOV*GOTO 630 

500 IF ,1=010 THEN FACING=08IX=XM0V* Y=Y~MOV 

590 IF Y>0100 THEN Y=Q100 

60 0 IE Y<G10 THEN Y«G10 

610 IF X<Q19 THEN X-019 

620 IF X>190 THEN X=190 

630 RETURN 

610 REM 

650 REM 

660 REM 

670 REM THIS SUBROUTINE DETERMINES THE DEGRE 

E OF DIFFICULTY AND SETS UP THE APPROPRIATE 

PARAMETERS 

600 REM 

690 REM 

700 REM 

710 DIM VQl-UE ( 03 * 03 ) 

720 GRAPHICS 101SETCOLOR 01,00,00*? #06*? #0 
6 * ? *06 5? #061" degree" * ? #06?" of d 

iffAcuity"*? #065? #06*" ' (13)"J 

730 REM POKE 16,61 SPOKE 53771,61 
710 OPEN #01,01,00 ,"*(*"♦ GET #01, ANSWER I CLOSE 
*01*IE (ANSWER<019) OR <ANSWER>51> THEN 720 
750 VOLUE (01,01) » -Q10 * VOUJE ( 01 , 02 )- -0100 * VOL 
UE (01,03) = -100 I VOLUME(02,01)=010* VOLUE(02,02) 
~50 

76 0 VOLUE(02,03)-200 * VOLUE(03,01)=30 * VOLUE( 0 
3,02 ) * 150 * VOLUE (03,03) ==600 

770 IF AN8WER=019 THEN SPLIM«01S{ALIM=Q8*BLI 
M=06 * DIFF-011 TIME=G5 , 

780 IF ANSWER=50 THER ,SPLIM=021*ALIM=Q10 *BLI 
M==07 * DIFE=02 * TIME = 07 , 

790 IF ANSWER=51 THEN SPLIM=20*ALIM=Q15 *BLIM 
=012 * DIFF-03* TIME-09 


000 ? *061? #061? *06l? *«6|" GET READY! 

"IIIF 0IF>01 THEN FOR T<«01 TO 'lOOINEXT I 

810 REM POKE 16,611 POKE 83771,61 

820 RETURN 

830 REN 

810 REM 

850 REM 

860 REM FRONTPIECE OF THE GAME 
870 REM 
880 REM 
890 REM 

900 GRAPHICS 02(SETCOLOR 04,00,001SETCOLOR 0 
2,00 »Q0{POKE 0752,01}SETCOLOR 01,00,0141? *0 
61? *06}" asteroid Miners" 

910 ? " (c)1982 MMG Micro Software"1? " 

by Mark Chasin'* 

920 RETURN 
930 REM 
940 REM 
950 REM 

960 REM SET UP THE MAIN GAME 
970 REM 
980 REM 
990 REM 

1000 GOSUB 28001GOSUB 2900 

1010 ? " Do you need instructions (Y/N)?" 
}! OPEN #01,104 , OO , "K l " 1 GET #01, ANSI CLOSE *011 
IF (ANS089) AND (ANS078) THEN 1010 
1020 REM POKE 16,641POKE 53774,64 
1030 IF ANS-89 THEN GOSUB 3420 
104(J ? ""{SOUND 00,121,012,041 SOUND 01,140, 
08,041SETCOLOR 04,G0,001POSITION 00,041? #06 
{" YOU ARE ABOUT TO" 

1050 ? #06>" EMBARK ON A TRIP"!? #06}" THR 

ough Time and"i? # 06 i" space."}gosub 3 

750 

1060 REM POKE 16,641POKE 53774,64 
1070 POSITION 00,031? #06}" A TREASURE AWAIT 
S"l? #06}" THE ADVENTURESOME "1? #Q6{" IN TH 
E DEPTHS OF " 

1080 ? *06}" SPACE, BUT FOR "1? *06}"THE 
CARELESS AWAITS"}IFOR BBB«Q1 TO 600{NEXT BBB 
1? #061? #06}" death"! 

1090 REM POKE 16,641POKE 53774,64 
1100 SOUND 02,85,010,014(SOUND 03,096,010,01 
41FOI? NBC=01 TO 040 (NEXT NBC (SOUND 02,00,00, 
OO!SOUND 03,00,00,00 IFOR 0=01 TO 05!NEXT 0 
1110 SOUND 02,91,010,0141SOUND 03,108,010,01 



1 5FUR NBOOl TO SO01 NEXT NBCtSQUND «2,00,00, 
00 5 SOUND 03,00,00,001GOSUB 3910 
1120 POSITION 00,035? #065" YOUR JOURNEY IS 
5? #06 | M OF CRUCIAL. IMPOR- "5? *06 5 "TANCE 
TO EARTH, BUT’ 

1130 ? *06}" WE KNOW THAT YOU, "5? *06{"THE 
BEST OE All OF "5? *06}" US, WILL. SUCCEED. " 
1110 ? *06}" good lock "5COSUB 1010 

1150 REM POKE 16,615POKE 53771,61 
1160 COSIJB 710 5FOR N=015 TO 0 STEP --017 5S0UN 
D 00,021,010,-NSNEXT N5SOUND OO,00,OO,OO5GOSU 
B 2030 

1170 A-PEEK(106)-08.POKE 51279,A5POKE 53277, 
02 5 PMBASE~ : 0256*A 5 POKE 53256, 015 X== 1215 Y=1B 5 FA 
CINC“05 

1180 POKE 701,116 5POKE 705,6O5POKE 706,O0 5FO 
R N“Q15 TO 0 STEP -0175SOUND OO,021,010,N5NE 
XT N5 SOUND OO,OO,OO,OO5COSUB 2110 
1190 D=USR<1568){GRAPHICS Q0{SETCOLOR 01,00, 
00 5SETCOLOR 02,OO,005POKE 700,005POKE 0752,0 
15 POKE 756,NOWCSET 
1200 REM 

1210 POSITION 011,005? "ASTEROID MINERS"}5P0 
STTTON 00,025? "SCORE"}5POSITION 019,025? "T 
IMF"}5POSITION 031,025? "HIGH"} 

1220 REM POKE 16,615POKE 53771,61 

1230 POSITION 00,03 5? "_"}5POSITION 019, 

035? "."} 5POSITION 031,035? "_"} 

1210 FOR N-015 TO 0 STEP -0175S0UND 00,021,0 
10,N5NEXT N 5 SOUND OO , OO , OO , OO 5 COSIJB 1820 
1250 FOR N“015 TO 0 STEP -0175SOUND 00,021,0 
10,N 5 NEXT N 5 SOUND OO,00,OO,OO 5 POKE 53257,015 
POKE 53258,01 

1260 POSITION 031,015? HISCORE 
1270 000 5 FOR A = PMBASE+Q512 + Y TO PMBASE+519+ 
Y 5 POKE A,PEEK(PTR< FACING > +C)5 OC»015 NEXT A 5 P 
OKE 0559,125POKE 623,01 

.1280 SETCOLOR 01,OO ,011 5FOR 1=1617 TO 1620 JP 
OKE 1,00 5NEXT 15POKE 1621,0965P0KE 1616, Tl'HE 
5 D--USR <.1622 > 

1290 REM 
1300 REM 
1310 REM 

1320 REM ****** THIS IS THE MAIN LOOP ****** 
1330 REM 
1310 REM 
1350 REM 

1360 BB--Y 5 IF PEEK (1619) THEN 2250 










1370- CC-XSpOKE 53278, Q1 {POKE 532/10, X 5POKE 53 
219, X t POKE 53250 , X l JJ-J 5 REM POKE 16,615 POKE 
53771,61 

1300 J-STICK(QO)5BUT-S TRIG(QO)5 MOM-015IF BUT 

=00 THEN MOM-01 

1390 IF JJ--J THEN GO SUB 350 

1100 IF 3-015 THEN FACINGFL-091 SOUND 00,00,0 
0 ,OO5SOUND 01,00,OO,OO J D=USR(0536,PMBASEi610 
»■ v , PTRFL (FACINGFL > ) 5 GOTO 136 0 
1110 POKE 77, OO«IF JOJJ THEN GOSUB 510 
1120 FACINGFL=FAGING5SOUND OO,210,06,0105 SOU 
ND 01,230,08,010 5 D»USR(0536,PMBASE * 0512 +BB,P 
TR < 09)) 

1130 D-USR (0536, PMBASE+610+BB, PTRFL. ( 09) ) 5 D-U 
SR ( 0536,PMBASEi768 « BB,PTRIN(09)) 

1110 D-USR (0536, PMBASE » 0512+Y , PTR (FACING ) ) 5 D 
~USR(0536,PMBASE>610+ Y,PTRFL(FACINGFL)) 

1150 D-USRC0536,PMBASE » 768 » Y,PTRIN< FACING))5 
IF (DIFF-03) AND (PEEK(1620)) THEN GOSUB 212 
OS POKE 1620,00 

1160 P1-PEEK(53252)JP2-PEEK(53251) 

1170 IF (P1>00) AND (DIFF>01) THEN GOTO 2610 
1180 IF P2-O0 THEN GOTO 1360 

1190 XDIF-02* ( (CC<X ) ( X<CC ) ) 1 MIN- (BBCY ) ( Y<B 
B) 5 XXX-IN K ( X 12 ) 701) +XOIF 5 YYY-INI ( ( Y 011) /3 
.8333)•MIN 

1500 LOCATE XXX,YYY,VO5MODAL-(MO-99)+02*(MO- 
98)+03*(M0-097) 

1510 IF MO-32 THEN GOTO 1360 

1520 MOLMO-MOEUE(MOMAE,DIFF)5 IF MOLMO-01 THE 
N MOEMO-OO 

1530 POSITION XXX,YYYS? " "JSIF MOLMO>Ql THE 
N FOR MX-250 TO 115 STEP -0155 SOUND 03,MX,01 
0,010 5NEXT MX 5 SOUND 03,00,00,00 
1510 IF MOEMO>-00 THEN 1560 

1550 FOR MX-150 TO 015 STEP 0155 SOUND 03,MX 
,08,012» NEXT MX 5 FOR MX-015 TO 150 STEP 0155S 
OUND 03,MX,08,012 5 NEXT MX 1 SOUND 03,OO,00,OO 
1560 IF M0LMQ>Q1 THEN NUMGOOD-NUMGOOD-01 
1570 SCORE-SCORE+MOL.MO 5POSITION 00,015? SCOR 
EJ" "} 5 IF NUMGOODOQO THEN GOTO 1360 
*1500 D-IJSR( 1762 ) 5 GOSUB 2510 S POKE 53218,00 5 PO 
ICE 53219, OO 5 POKE 53250,00 5 GOSUB 1820 5 Y-18 5 X- 
1215 A-PMBASE * 0512+BB 

1590 D-IJSR ( 0536, A, PTR ( 09 ) ) 5 D-USR (0536 , A+128 , 
PTRFL. (09 ) ) 5 D-USR ( 0536 , A10256, PTRIN (09 ) ) 5 A-A 
08 

1600 D-USR(0536,A,PTR(09))5 D-USR(0536,A +128, 




PTRFL (<39)> J p-USH t fl536 # (3256 , PifilH i |3?) ) I 

0 .1 6 

161 0 D-'llSR < Q53A , A , F IR ((39 ) ) J D=USR ((3536 , A+120 , 
PTRFL < <39 ) ) { D=USF< ( C3536, A+(3256 , PTRIN <09) ) 

162 0 D-USR ((3536 , A, PTR (09 ) ) * D=USR ((3536, A+120 , 
PTRFL< 09 > >{ D=USR<0536,A+0256,PTRIN(09)) 

.1.630 B0NUS= I)IFF*DIFF*20 0 J POSITION 00,011 ? "B 
ONUS"{S1NCRE=50+50*< DIFF= 03) 

16 / (0 FOR DD=INCRE TO BONUS STEP INGRES POSITI 
ON (30,O4SSCORE=SCORE+INCRE{? SCORE}" "} 
1650 FOR N=015 TO 0 STEP -017{SOUND 00,021,0 
1 0 , N .* NEXT N { SOUND (30 , (30 , OO , OO { NEXT DD 5 POSITI 
ON 00,(31 {? " "} 

1660 0 (30 5 FOR A=PMBASE+0512+Y TO PMBASE+519+ 
Y J POKE A , PEEK (PTR ( 05 ) +C ) {OC+Ol 1 NEXT A { POKE 
0559 , *12 t POKE 623,01 
1670 D—IJSR ( 1622 ) 

1600 GOTO 1360 
1690 REM 
1700 REM 
1710 REM 

1720 REM ****** END OF THE MAIN LOOP ****** 

1730 REM 

1740 REM 

1750 REM 

1760 REM 

1770 REM 

1700 REM THIS SECTION SETS UP THE FIELD OF A 
STEROIDS, USING THE REDEFINED CHARACTER SET 
1790 REM 
1800 REM 
1010 REM 

1020 FOR 1=01 TO SPLI.M 

1030 XX= INT ( RND < (30 ) *30 ) { YY=INT < RND ((30 > xQ 15+0 
7) {LOCATE XX, YY , 7.2. {IF ZZ.=097 THEN 1030 
1040 POSITION XX,YY{? "c"}{NEXT I{REM POKE 1 
6,64{POKE 53774,64 
1050 CTA=O0{FOR 1=01 TO ALIM 

I860 XX=INT(RND(OO)*36+01){YY=INT(RND(OO)*01 
5+07) {LOCATE XX,YY,ZZMF (ZZ-Q97) OR <ZZ.=98> 
THEN 1860 

1870 IF <<YYY=<38> OR (YYY=09)) AND ((XXX> = 10 
) AND <XXX<=23>> THEN 1860 

1000 POSITION'XX,YY{? "b"}{CTA=CTA+01{NEXT I 
{REM POKE 16,64 SPOKE 53774,64 
1090 FOR 1=01 TO BLIM 

190 0 XX=INT (RND ((30 ) *36+01 ) S YY=INT (RND((30 ) *01 
5+07)S LOCATE XX,YY,ZZ}IF (ZZ>096) AND (ZZ <01 




00) THEN 1900 

1910 I I ( (YYY~ ; 08) OR <YYY-=09>> AND (<XXX>--10 
) AND <XXX<=23>> THEN 1900 

1920 POSITION XX,YY1? "a" > 1CTA-CTA<01 2 NEXT I 
J NUMCOOD-C I A I REM POKE 16,64 J POKE S3774, 6'» 
1930 I OR E'Y-00 TO 091F0E VX-10 TO 23!LOCATE 
VX,VY,VZ:iF <VZ*097> OR (VZ«98) THEN NOMOOOD 
-NUMGOOD 01 

I 9'10 NEXT 0X1 NEXT OY 1IOR ABO 08 TO 09 5 POSIT I 

ON 019,ABC 5 ? " "J1 NEXT ABC 

19SO RETURN 

1960 REM 

1970 REM 

1900 REM 

1990 REM THIS SUBROUTINE REDEFINES THE CHARA 

CTER SET IN RAM AS WE NEED IT 

2000 REM 

2010 REM 

2020 REM 

2030 RESTORE 2.0'10 1 FOR I>01 TO 04 1 READ RPL.C1E 


OR .T OO T O 071 READ AB 1 POKE RAM * 00*Rp 1.C tJ, AB 1 
NEXT »J 1 NEXT I 

2 0 40 I) A T A 97,0 , '12 , I 7 0,17 0,17 0,17 0 , '12,0,9 8,16 
, 84, OS , OS, OS , OS, 84 ,4,99,24,124,126,2SS , 2SS , I 
26,126,24 

2 0 S 0 DATA 13,0,0,0,126,126,0,0,0 

2060 RETURN 

2070 REM 

2000 REM 

2090 REM 

2100 REM THIS SUBROUTINE SETS UP THE POINTER 

S TO THE LOCATIONS OF EACH OF THE SHAPES OF 

THE PLAYERS 

2110 REM 

2.120 REM 

2130 REM 

214 0 RESTORE 2 140 1 DIM PTE(09)1 FOR A=01 TO 09 
1READ 11PTE(A)®TINEX I A 1DAI A 260,260,2 7 6,2 04 
,292,300,300,316,324 

215 0 DIM P 1 R FI ( 0 9 ) 1 T 0 E A=01 I 0 09 1 R E AI) I 1 P T R 
FI. ( A ) =11 NEXT A 1 DATA 332,340,340,3S6,364,372 , 
300,300,396 

2160 DIM PIE IN<09)IFOR A ; 01 TO 091 READ I1PTR 

IN(A)~I 5 NEXT A 1DA TA 4 0 4,412,4 2 0,42 0,436,4 4 4, 

4S2,460,460 

2170 RETURN 

2100 REM 

2190 REM 







2200 REM 

2210 REM THIS SUBROUTINE RECONFIGURES THE SC 

BEEN AFTER THE GAME ENDS 

2220 REM 

2230 REM 

2230 REM 

2 2 5 0 SOU N D 0 0,0 0,00,0 0 3 S 0 0 N D 0 I. , 0 0,0 0,0 0 11F 
SC0RE > I IISC0BE l ITEN I IISC ORE~SC0RE 
2ZAO D USE( 1762 ) 

2 2 7 0 P 0 S1110 N 0 I 3,0 0 3? * 1 A S T E R 0 11) MIN E R S " { J P 0 

sit ion 00 , 02 :? “score" POSITION 01.9,02:? "T 

1 Ml: " ; 3 POSITION 033,02 : ? "HIGH" ,* 

2 ? o o p o s i r i o n o o, o 3 :? " " j: p o s i r i o n o j 9, 

03 :? ••.";:position 033 , 03 :? "..•*;:posit 

TON 033,03:? HISCOEE 

2.29 0 REM POKE 16,633 POKE S3 7 7 3, A 3 

230 0 POKE 53230,00:POKE 53239,OOI POKE 53250, 

OO 


2310 FOR 1-05 TO 23:POSITION 00,05:? ""J3NE 
XT I : SC ORE-IT 0 : OPEN 10:1 , 03 , OO , "K : " : SETCOLOR 0 
2,OO,OO:SETCOLOR 01,OO,013 

2320 POSITION 010,13:? "ANOTHER GAME: Y OR N 

?": g e i * o I, a n s: c i. o s e t o i: p o s 11 i o n o o ,13: ? • ■ 

"»:IF ANS009 THEN GRAPHICS 00 I NEW 

2330 POKE 01A,0A3:POKE 0773,0A3!GOSUB 720:FA 

c:i n c o5: sco e e ■■■■■■■ o o: y~ 3o: x- 12 3: pos::: i ion o o, o 3 : ? 

»I Mi 


2330 GOTO 1190 
2350 REM 


2360 REM 
2370 REM 

2300 REM THIS SUBROUTINE 
Oil) IN THE HIGHEST LEVEL. 
2390 REM 
2300 REM 


ADDS A RANDOM ASTER 
OF DIFFICULTY 


2310 REM 

2 32 0 XX ^IN T (RND(0 0)* 3 A•01):YY-1NI (RND(0 0)* 01 
5 « 0 7 ) : I... 0 C A I E XX, YY,ZZ:i T ( Z Z > 0 9 A ) AND ( Z Z < 01 
00) THEN 2320 

2330 P0SITTON XX,YY:? CHRT(09 7 < I NT(RND(00)•0 

17 ) ) ,* 3 NUMG00D-NIJMG001)» 0 I 3 RE IURN 

2330 REM 

2350 REM 

2360 REM 


2370 REM THE SOUND YOU HEAR IS THE HERALDING 
OE A SUCCESSFUL CLEARING OF A FULL SCREEN!! 


2300 REM 












2 *'»90 REM 
2500 REM 

2510 SOUND GO,QO,QO,00 !SOUND 01,OO,GO,GO ! SOU 
ND 03,121,010,08 S SOUND 02,1 44 ,010,08SFOR 1=0 
1 TO 010!NEXT I 

2520 SOUND 02,OO,OO,OO!SOUND 03,00,OO,OOSSOU 
ND 03,91,010,08 S SOUND 02,108,010,08 J FOR 1>=01 
TO 021:NEXT I 

2530 SOUND 02,OO,OO,OO!SOUND 03,OO,OO,OO!SOU 
ND 03,121,01 0,08 ! SOUND 02,144, 010,08 I FOR 1=0 
1 TO 010:NEXT I 

2540 SOUND 02,OO,OO,OO!SOUND 03,OO,OO,OO ! SOU 
ND 03,91,010,08!SOUND 02,108,010,08 5 FOR 1=0 I 
TO 040!NEXT I 

2550 SOUND 02,OO,OO,OOtSOUND 03,00,00,00 

25SO RETURN 

2570 REM 

2580 REM 

2590 REM 


2600 REM SUBROUTINE YOU HIT AN ASTEROID! A D 
l: FINITE NO NO! ! 

2610 REM 
2620 REM 


2630 REM 

2640 POKE 532*18,00! POKE 53249 , GO ! POKE 53250, 
OO ! POKE 53259 , OO ! AB=22 ! POKE 707 , AB ! POKE *180 , 
24!POKE 487,24 


2650 POKE: 481,60 ! POKE 


48 


1 


■! PO 


KE 485,126!POKE 483,255{POKE 484,255 
2660 0=00 IFOR A=PMBASE•896»Y TO PMBASE-* 903 < Y 
5 POKE A,PEEK<480*0)!0=0 « 011 NEXT A!POKE 0559, 
42!POKE 623,01!POKE 53251,X 

2670 FOR 1=01 TO 45!IF I/05=INT(1/05) THEN A 
B=A B -»• 016!p0K E 707,A B 

2680 SOUND 0 0 , RND (00 ) *0256,08,08 I IE 1=015 III 
EN AB=22SPOKE 707,AB!POKE 53251,X 05!POKE 53 


IF 1=30 THEN AB :: 


:!POKE 707,AB!POKE 532 


5 1 , X 010 ! P 0 K E: 5 3 2 5 9,0 3 

2 7 0 0 S 0 U N D 01 , R N D (0 0 ) *0 2 56,06,0 8 ! S 0 U N D 0 2 , R N 
D ( 0 0 ) *0 2 5 6,012,08! S 0 U N D 0 3, R N D ( 0 0 ) * 0 2 5 6,08,0 


8!SETOOLOR 02,RND(OO)*016,08 

2710 NEXT I!SETOOLOR 02,04,010!SETOOLOR 01,0 

4,010!FOR 1=00 10 03{SOUND I,00,OO,OO!NEXT I 

SPOKE 53251,00 

2720 GOTO 2250 

2730 REM 

2740 REM 



2750 REM 

276 0 REH SUBROUTINE TO MOVE THE CHARACTER BE 
1 EROM ROM TO RAM 

2770 REM 
2700 REM 
2790 REM 

200 0 POKE 0559, GOJ R0M=573'M 5 RAM-(PEEK( 106) 0 
'I) *0256 5 NOWCSET~PEEK ( 1 0 6 ) -O'! J POKE l 0 6 , NOWCBE 
1 5 POKE 756,NOWCSET 

28 I 0 D I M GWEE$ ( 03'I) 5 GWER4>»"hhLhK > M >'N" 

1 MKHPyfLfNJPp ' " 5 A-USE ( ADR < GWEE* ) , RAM) 

2020 RETURN 
2030 REM 
20“10 REM 


2050 REM 

2060 REM SUBROUTINE TO PLAY 2001 A SPACE 0 

DYSSEY, AND THEN SET UP THE SCREEN 

2070 REM 

2000 REM 

2090 REM 

2.9 0 0 G R A PI IIC S 0 2 5 S E I C 0 L 0 R 0 ‘ l, 0 0,0 0 5 S E I C 01 .0 E 
02,00,005 P 0 K12 0 7 5 2,01 5 S E I C 0 L 0 E 01,0 0,01 T 5 ? H 
0 6 5 ? R 0 6 5 " a <:> t <•;? r o :i. d m :i. n e r a ’ 1 
2 9 I 0 C == 2 T 3 51 - 18 2 5 G = 16 2 5 A - 1 -I '15 A S - 13 6 5? " 

( c ) I 902 MMG M:ic r o Sof tware'U? " by 

Mark Chasin'* 


292.0 REM POKE 16,6'15 POKE 
2 9 3 0 C1 =•■ 121 5 D1 * 1 0 0 5 E1 » 0 9 6 5 F1 = : 91 5 G 1 === 015 G1 
5 A1 = 72 5 A1S -68 5 X V- I NT ( RND ( 0 0 ) *021 ) 5 Y V- I N1 

<oo)*ooo2>;posir:i:o n xv,yd;? io6 


29-H) c; 


-33 


= 6 0 5 I > 2 - 5 3 5 E 2 - •'17 5 F 2 =5 5 G 2 ™ 0 d 0 5 A 2 == 3 
: C3 : ~29 5 WH==7 0 5 I IP =35 5 01=021 5 ET= 010 5 SX 
295 0 X == 01 0 5 Y == 015 5 XV-■= INK RND ( 00 ) *021 ) 5 YD 
R N I) ( 0 0 ) * 0 8 * 0 2 ) 5 P 0 SIT ION X D, Y D 5 ? I 065 "." 

' »i:>. 


S==76 

(RND 

5 5 A 2 

05 

INK 


0 FOR R-00 TO 035 SOUND R,F ,X,Y 5 NEXT R5 FOR 


DUE =01 TO WIT*02 5 NEXT DUR 
2 9 7 0 F 0 R R ™ 0 0 10 0 3 5 S 0 U N D R , C1 , X , Y 5 N E X I R 510 
R Dl IE- 01 TO WIT*02 5 NEXT DUR 5 XD-INT ( RND ( 0 0 ) *02 


1 ) 5 YD == IN I ( RNI) ( 00 ) *08 * 02 ) 5 P0SIT I ON XD , YD 5 ? 10 
6,* "."5 

290 0 FOR R == 0 0 I 0 03 5 S0UND R , I 1 , X , Y 5 NEXT R 5 F0 
R D U R == 01 I 0 (Nil»IIF * 0 T ) * 0 2 5 NEX T D U R 5 X D = I N I ( R N 
1X00 )*021 ) 5 YD = INK RND ( 00 ) *08 * 02 ) 5 P08ITI0N XD 


,YD5? 106 J","} 

2 9 9 0 I 0 R R = 0 0 10 0 3 5 S 0 U N D R , A1 , X , Y 5 N E X 1 R 51 0 
R DUR=0 1 TO 015 NEXT DUR 5 X0 = INT(RND(00)*021)5 
YD =INT(RND(GO)*00 * 02) 5 POSITION XD,YD 5 ? 106 5 " 


il « 





3000 BOUND 00 , F , X, Y I BOUND 0.1,Cl , X , Y i BOUND 02 
»F 1 ,X, Y 5 BOUND 03, BIB, X, Y 1FOR DUR=G1 TO Ml" * NE 
XT DUR 

3010 FOR 00 - 01 TO 031 SOUND 00,C,X,Y1FUR DIJR- 
01 TO HF 5 NEXT DUR1 SOUND 00 , F,X,Y2FOR DUR-01 
TO HF1 NEXT DUR J NEXT 002XV-INT<RND<OO)*021>2Y 
V=INT(RND(OO)*00*02)2POSITION XV,YVI? 106 }". 

II % 
f 

3020 BOUND O0,C,X,Y2FOR DUR»G1 TO HF1 NEXT DU 
R 2 XV-INT (RND (OO ) *021 ) 1 YV*INT (RND (OO ) *00+02 ) 2 
POSITION XV ,YV J? #06J " . " J 

3030 FOR R-OO TO 031 SOUND R , F , X , Y 2NEXT R2FOR 
DUR-01 TO WH * NEXT DUR J XV»INT<RND(OO)*021)2Y 
V-INT(RND(00)*00+02 >1POSITION XV,YV1? #06 }" . 

II « 

t 

30'10 FOR R-OO TO 031 BOUND R , C1, X » Y 1 NEXT RJI O 
R DURbQI TO WM1NEXT DUR 

3050 FOR R-OO TO 03:SOUND R,FI,X,Y1 NEXT R1I 0 
R DUR-01 TO WH * HF•OT1 NEXT DUR1XV-INT(RND < OO) 
*021)1YV-INT(RND(OO)*00+02)1 POSITION XV,YV1? 
#06 

3060 01=01-021XV-INT(RND(00)*021)1YV-INT(RND 
(OO)*00+02)1POSITION XV,YV1? *06 J "."{ 

3070 FOR R-OO TO 03 .‘SOUND R, GIB ♦ X , Y 1 NEXT RIF 
OR DUR«Q1 TO OT1 NEXT DUR 

3000 SOUND OO, F ,X,Y1 SOUND 01,C1,X,Y1 BOUND 02 
,F1,X,Y1SOUND 03,A1,X,Y1F0R DUR-01 TO HF1NEX 
T DUR1XV-INT(RND<OO)*021)1YV=INT(RND(OO)*00 + 
02)1 POSITION XV.YV1? *06J"."} 

3090 FOR 00-01 TO 031 SOUND OO.C.X.YIFOR DUR- 
01 TO HF.NEXT DUR1 SOUND OO,F,X,Y1FOR DUR -01 
TO HF1 NEXT DUR1 NEXT 00 

310 0 SOUND OO,A,X,Y1F0R DUR»Q1 TO HF1 NEXT DU 
R1XV-INT(RND(OO)*021)1YV-INT< RND(OO)*00+02)1 
POSITION XV.YV1? *06}"."J 

3110 SOUND 00,AS,X,Y1SOUND 01,FI,X,Y1 SOUND 0 
2,A1S,X » Y1 SOUND 03,D2,X,Y1FOR DUR-01 TO HF1N 
EXT DUR 

3120 WH-WH-O'11 HF-HF-O'11 XV-INT < RND (00 ) *021 ) 1 Y 
V-INT(RND(00)*00+02)1 POSITION XV,YV 5 ? *061". 

II « 
f 

3130 SOUND 00,C1,X,Y1SOUND 01,F1,X,Y1 SOUND 0 
2,C2,X,Y1 SOUND 03,E2,X,Y1 FOR DUR«01 TO HF1NE 
XT DUR1XV-INT< RND(00 > *021)1YV-INT(RND(OO)*00 
+02)1 POSITION XV,YV1? *061“."} 

3HO SOUND 00,D1,X,Y1 SOUND 01, FI , X, Y 1 SOUND 0 
2 , A1S, X , Y 1 SOUND 03, F2, X, Y 1 FOR DUR =111 TO WM+H 
F+ET1 NEXT DUR1XV-INT< RND(OO > *021)1YV-INT(RND 




(QO)*00+HZ):POSITION XV» YU ?? #06 } " . " } 

3150 SOUND QO,AS,X,YtSOUND 01,F1,X,Y!SOUND 0 
2,A1S,X,YSSOUND 03,02,X,Y{FOP DUR-01 TO HF+Q 
T«FT!NEXT DUR 

31.60 SOUND QO,F,X,YJSOUND 01 ,C1 , X , Y « SOUND 02 
, F .1 , X , Y : SOUND 03, A2 , X , Y J FOR DUR^Q 1 TO HF : NEX 
T DUR 

3170 SOUND OO, G, X , Y * SOUND 01,Cl» X,Y « SOUND 02 
, G1 , X , Y t SOUND 03, AS2. , X , Y J FOR DUR-Q1 10 HF 1 NE 
XT DUR t XV-INT(RND(OO)*021)5 YU"INI(RND(OO)*00 
• 02)1 POSITION XV,YUt? *06}"•"( 

3100 SOUND OO , A, X , Y « SOUND 01,Cl,X,Y{SOUND 02 

,f 1,x» y:sound 03,C3,x,y:for dur-qi to hf:nex 
1 DUR 

3190 SOUND 02.» A1» X,Y1 FOR DlJR-01 TO HF ♦ NEXT D 
UR:XV"INT(RND(00)*021)tYV-INT(RND(OO)*00*02) 

:position xu, yu:? *06;","j 

32 0 0 SOUND 02# F1, X » Y ♦ FOR DUR-01 TO HF♦NEXT D 
UR 1 XU-INT(RND(OO)*021)1YV-INT< RND < 00)*00+02) 

:POSITION XU,YU:? *06}"♦"J 

32 1.0 SOUND 02 ,Cl,X,Y IFOR DUR-01 TO HEINE XT D 
UR : XV-INT < RND (OO ) *02.1) i YV-INT (RND < QO ) *00+02 ) 

:POSITION XU,YU:? *06{"."J 

3220 SOUND Q2,A,X,YtF0R DUR-01 TO HF1NEXT DU 
R 

3230 WH-WI1-03iHF-HF--Q3:QT-GT-00 i XV-INT(RND(0 
0)*021)t YU-INT(RND(00)*00+02)1 POSITION XV,YU 

:? km;","} 

3240 SOUND OO,F,X,YJSOUND 01,C1,X,Y1 SOUND 02 
;F1,X,YtSOUND 03,A2,X,Y tFOR DUR-01 TO GT * NEX 
T DUR:XU-INT(RND(00)*021) i YU-INI(RND< 00)*00 + 
02 ) : POSITION XU, YU! ? *06} " . } 

3250 SOUND QO,G»X,YJSOUND 01,Cl,X,Y i SOUND 02 
,C1,X,Y5SOUND 03,AS2, X , Y J FOR DUR-01 TO OTtNE 
XT DUR:XV-INT(RND<OO)*021)IYV-INT(RND(OO)*00 
+02)t POSITION XU,YU t? *06J"."J 
326 0 SOUND 00,A,X,Y{SOUND 01,Cl,X,Y1 SOUND 02 
,F1,X,Y:SOUND 03,C3, X , Y * FOR DUR-01 TO WH+HF5 
NEXT DUR 

3270 WH-WH 02•HF-HF 02 « XV-INT < RND(OO)*021)JY 

U-INT< RND(OO)*00+02)1 POSITION XU, YU ♦ ? *06}", 
" * 

3200 SOUND 00, G , X , Y 1 SOUND 01,S+AS, X , Y ♦SOUND 
02,AlS,X,YtSOUND 03,D2,X,Y:F0R DUR-01 TO hh: 
NEXT DUR1XV-INT(RND(00)*021)IYV-INT(RND(00)* 
00+02):POSITION XU,YU1? *06}"."{ 

3290 WH-WI I 02 : HF-HF 02 

330 0 SOI IND 00 , C » X , Y ! SOUND 01 , S+AS , X , Y } SOUND 




02,G1,X,Y}SOUND 03,E2,X,Y}FOE DUR®Q1 TO HHIN 
EXT DUE{XV®INI(END <QO> *021)t YV-INT(END< QO)*0 
8+02>iPOSITION XV,YV J? *06}". M } 

3310 SOUND QO,F»X»YtSOUND 01,A,X,Y1 SOUND 02, 
C1, X , Y } SOUND 03,F2,X,Y;F0R DUR®Q1 TO HF * NEXT 
DUE } XV®INT< END < QO)*021)!YV»INT< END(QO)*00*0 
2){POSITION XV,YVI? *06} " . " } 

3320 FOE 00 01 TO 04}SOUND QO,C,X,Y*.FOE DUE® 
01 TO HF{NEXT DUEI SOUND O0,F,X,YJFOE DUE®01 
TO HF1 NEXT DUE t NEXT 00 

3330 SOUND O0,F,X,Y}FOE DUR®Q1 TO Q2xNH!NEXT 
DUE J XV®INI(END< QQ)*021)t YV-INT< END(QO)*00 * 0 
2):POSITION XV,YV}? #06} ".“} 

33TO FOE 1=00 TO 03JSOUND I,00,00,QOJNEXT 1} 

EETHEN 

3350 EEM 

3360 EEM 

33/0 EEM 

3300 EEM SUBROUTINE TO PRINT THE INSTRUCTION 

S TO THE SCREEN, IF ASKED TO 

3390 EEM 

3400 EEM 

ST 10 EEM 

3T20 GRAPHICS QOtSETCOLOR 02,04,010 » SETCOLOR 
01, 04»045POKE 0752,01{EEM POKE 16,64JPOKE 5 
3774,64 

3430 ? “Helcone to ASTEROID MINERS.The objec 
t of the <aa«e is to collect as Much vatu 
e as possible, by"} 

3440 ? " Mining"I? "the asteroids. Three di 
fferent colorsof asteroids will be in the fi 
eld to be Mined. "} 

3450 ? "Their values are!"!? ♦? “COLOR","DIF 

FICULTY" , "VALUE" J ? " ...._" , " . . " , " 

.."t? " BLUE"," 1 »," 10" 


3460 

•? •• 

II II o 

t 

"," 50"l? " 

II 

II 

t 

3 

"," 200"}? J? 

" GOLD"," 

1 

II II 

* 

30" 




3470 

7 •• 

• Ill o 

t 

",“ 150";? " 

II 

II 

t 

3 

"," 600"1? }? 

"WHITE"," 

1 

II II 

f 

- 10" 




3480 

';> it 

II II «*> 

","ioo";? •• 

II 

II 

# 

3 

","400";? 



3490 

? " 

(hit any key 

to continue)"} 

; OPEN 

*01 

,04,00," 

K♦"•GET #01,ANSICLOSE #01 


350 0 

GRAPHIC 

S QOtSETCOLOR 

02,04,010ISETCOLOR 


Q1#04,04 J POKE 0752,01!EEM POKE 16,64}POKE 5 
3774,64 





35:10 ? " As you can see, try to collect the 
blue and gold asteroids# but avoid thewhit 
e o n e s . 0 f c o u r s e # t h ere"# 

3520 ? " are More"*? "of the white ones# so 
you''11 have to work at it!" 

3530 ? *? " Your ship is piloted by a joyst 
j ok in the first slot. If you push the redb 
utton# your ship will ac"* 1 

3 5 4 0 ? 1 ‘ e e 1 e r a t e # " ♦ ? " b u t b e c o m e s h a r d e r t, o 
control * arid you May Miss sons asteroids! 

<i 

3550 ? *? " At levels of difficulty 2 and 3 

* if you run into an asteroid without c 

1 einn1 y scooping it up#"} 

3560 ? " the resulting"*? "explosion will ro 
li- the galaxy* so please be careful*"*? 
3570 ? " You have only 1inited supplies* bu 
i your ship is equipped with a tiner that 
will count down to 0." 

3530 ? *? " (hit any key to continue)"}•OP 
EH #0:1 , 04 * 00 , "K * " 1 GET *Q1,ANSI CLOSE 101 
3590 GRAPHICS 00 5 SETCQLOR 02,00 * 010}SETCOLOR 
01,0-4 #005 POKE 0752,01 }R EH POKE 12> # 6-4 ♦ POKE 5 
377 4*0*4 

32>00 ? " If you are skillful enough to gath 
ei-iip all of the valuable asteroids in one 
I :i. e 1 d # y o u w i 11 i m m e d i " # 

3 2) I 0 ? "ate 1 y f i n d " 1 ? " y o u r s e 1 f i n a n o t her# 
u 11 1 1 1 1 jour 1 1 m er r eaches 0 «" 

32)2 0 ? »? "Oh, by the way# in difficulty lev 
el 3*new asteroids May join the field froM t. 
iMe to tiMe# and of"# 

32>30 ? " course# if they"}? "hit you* well# 

il 

* * * 

3 610 ? t ? M Y o u > i a v e b e e n i > a v t :i. c u 1 a r 1 y s e I e 

c t (? d I o r t i i :i s c v 1 t :i c a 1 n i s s i o r»# a n d t h e h 

o i > e s o f a 1 1 t1 1 e e a r th “ # 

3 6u 0 ? “are riding"*? “on your success# but 
y o u a r e t i i e b e s t p :i. 1 o t o 11 e a r t h# a n d :i f a n y o 
ne can succeed# you 11 # 

3 6 6 u ? ‘ 1 e n f l i. a v t h d & a p e r a t e I y“ ♦ ? 11 n e e d s t h 

e ci v e s y o u w :i. 11 b e n :i. n i n g ♦ " ♦ ? ♦ ? * ? “ 

GOOD LUCK!! M 

3 67 0 ? I? ♦? " (hit any key to start the 
yane)“# iOPEN *Q1# CH # GO#“K•“ t GET *GJ # ANS l CLOU 
I *iU * COSUB 90 0 1 RETURN 

3dHO REM 
t , >0 PI ii 
















370 0 REII 

3710 REM THESE ROUTINES POKE THE SHAPES OF T 

HE PLAYERS INTO MEMORY 

3720 REM 

3730 REM 

3740 REM 

37‘50 RESTORE 3760{FOR A-260 TO 331{READ IJPO 
KE A,IiNEXT A 

3760 DATA 66,66,102,102,126,126,0,0,16,32,64 
,192,193,98, 60,24,63,60,40,48,40,40,60,63,24 
,60,90,193,192,64,32,16 


3770 DATA 0,0,126,126,102,102,66,66,24,60,70 
,131,3,2,4,0,252,60,12,12,12,12,60,252,O,4,2 
,3,131,70,60,24 
3700 DATA 0,0,0,0,0,0,0,0 

3790 FOR A-332 TO 403{READ I{POKE A,I{NEXT A 
3000 DATA 0,0,0,0,0,0,24,24,0,0,0,0,0,120,19 
2,224,0,0,0,192,192,0,0,0,224,192,120,0,0,0, 
0,0,24,24,0,0,0,0,0,0 

3010 DATA 7,3,1,0,0,0,0,0,0,0,0,3,3,0,0,0,0, 
0,0,0,0,1,3,7,0,0,0,0,0,0 ,0,0 

3020 FOR A-404 TO 475{READ I{POKE A,I{NEXT A 
3030 DATA 60,24,0,0,0,0,0,0,0,12,30,I 5,4,0,0 
,0,0,0,1,3,3,1,0,0,0,0,0,4,15,30,12,0,0,0,0, 
0,0,0,24,60,0,0,0,32,240 

3040 DATA 120,40,16,0,0,120,192,192,120,0,0, 

16,40,120,240,32,0,0,0,0,0,0,0,0,0,0,0 

3050 RETURN 

3060 REM 

3070 REM 

3000 REM 

3090 REM THESE ARE THE MACHINE LANGUAGE SUBR 

OIJTINE TO MODE THE PLAYERS 

3900 REM AND OPERATE THE COUNTDOWN TIMER 

3910 REM 

3920 REM 

3930 REM 

3940 RESTORE 3950{FOR A-0536 TO 1560{READ It 
POKE A,I{NEXT A 

3950 DATA 104,104,133,204,104,133,203,104,13 
3,207,10 4,133,2 0 6,16 0,0,17 7 
396 0 DAT A 2 06,145,20 3,200,192,0,20 0,24 7,96 
3970 FOR 1-1560 TO 1590{READ A{POKE I,A{NEXT 
I 

390 0 DATA 1 0 4 , .1 69,0,133,224,166,1 0 6,2 0 2,2 0 2 , 
202,202,202,202,202,134,225,160,255,145,224, 
136,200,251,230,225,232 
39 9 0 I) A T A 2 2 8 , I 0 6,2 0 8,2 4 2,9 6 




‘10 0 0 RETURN 

'TOUT FUR T.»1616 TO 1772{READ A I POKE . I, A: NEXT 


I 

'1020 
6,3 2 
,20 6 
■TO 30 
4 0 ,6 

, 6 t 2. 

4 0 3 0 
0 » 6 , 


DATA 0,0,0,0*0,96,104,160,97,162,6,169, 
,92,2.28,96,165,88,133,200,165,89,133,209 
,85,6,208,78,169 

DA1 A 60,141,85,6,174,82,6,202,224,255,2 
,142,82,6,76,188,6,162,9,142,82,6,174,81 
0 2,2 2 4,255,24 0,6,14 2 
DATA 81,6,76,188,6,162,5,142,81,6,174,8 
I 69,1,141,8 4,6,202,224,255,2 4 0,6,142,80, 


6,76,188,6,169,0,141,80,6 

4050 DATA I 41,81,6,141,82,6,169,1,141,83,6,1 
60, I 7 9,216,162,0,240,14,169,26,145,208,200,1 
89,8 0,6,105,16,145,2 (T 8,2 0 0 
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